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0 
8 COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
0 ALL RIGHTS RESERVED. 
‘ THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
0 ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
0 INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
Q COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
5 THER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


0 . 
TRANSFERRED. 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeeponet ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


| 
| 
| 
| 
| 
| | 
| | 
| | 
| | 
| 
DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
| 
| 
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| RM2CREATE RELATIVE-SPECIFIC CREATE 16-SEP-1984 01: AX/VMS Macro V04-00 Pa 
/VOG= oreeen 18s 14:54:00 PANS RCHAMDCREATE MAR: 1 = 
| § p++ 
| p Facility: rms32 
| 0 § : Abstract: 
000 4: this routine performs the relative file 
t' 5 : organization-specific create processing. 
44 £ : Environment: 
| on8 } ; star processor running starlet exec. 
0090 ? : Author: L F Laverdure, Creation Date: 7-DEC-1977 
0000 4¢ > Modified By: 
0000 43 ; 
0000 44 ; V03-011 RASO284 Ron Schaefer 30-Mar-1984 
44 a ; Fix STV value on error paths for RMS$_RPL and "RMS. WPL errors. 
0000 47: V03=010 RASO265 Ron Schaefer 9-Mar-1984 
44464 rt ; Bump IFB$W_AVLCL to count the BDB & buffer we allocate. 
0000 50: v03-009 KPLO002 Peter Lieberwirth 30-Jul-1983 
4444 2) : If Al Canek tees journal the prolog. 
0000 28 : V03-008 MCN0003 aria del C. 08-Mar-1983 
444 ee : I forgot to netute SBKIDEF dor *MCNO002. 
0000 }6—s «56 gk v03-007 MCNO002 Maria del C. Nasr 07-Mar-1983 
4 ef ; Use symbolic name for maximum bucket size. 
0000 «59: V03-006 KBT0462 Keith 8. Thompson 13-Jan-1983 
44 9 : Allocate a bdb Phew ah to read in prologue 
0000 62: v03-005 MCNO001 Meria del C. Nasr 16-Dec-1982 
0000 63 ; Maximum number of blocks per bucket was increased from 
444 ee : 32 to 127. 
0000 66: V03-004 KBT0332 Keith B. Thompson 10-Sep-1982 
44 of 3 Remove $F RBDEF 
0000 «69: v03-003 KBT0132 Keith B. Thompson 20-Aug-1982 
i At ; Reorganize psects 
$000 as : vV03-002 KBT0116 Keith B. Thonpesn 6-Aug-1982 
44 o 5 Remove ref. to set_sifb_ptr 
0000 «75: v03-001 kBT0097 , Keith B. Thompson 13-Jul-1982 
44 6 ; Clean up psect 
0900 78: v02-017 cDs0012 C Sae 5-Feb-1982 
it 0 3 Back out V02-016. ase nae in record attributes. 
000 81 : v02-016 CDS0011 CS 3-Jan-1982 
bth ¢ 3 Store GBC field Rey AS. to plg. 
$00 5 : v02-015 ¢DS0010 C Saether 25-Aug-1981 
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009 Ss Replace call to RMSALLOC_BCB with RMSALBLB. 
G 5 3 v02-014 RASO028 Ron Schaefer 20-Aug-1981 
83 5 3 Change FABSC_STM11 to FABSC_STM. 

$8 8 : V02-013 RASOO15 n Schaefer 7-Jul-1981 

44 4 3 Correct record *onadh check for stream format files. 
$090 3 s v02-012 KPLOO01 Peter Lieberwirth 24-Jul-1981 
0000 94 ; Fix broken branches. 

0000 95 ; 

0000 96 ; 

0000 97 ; x sense of test in V009. 

0000 98 ; 

0000 99 ;-- 
0000 100 ; 
0000 38101 


| 
v02-011 cosooi2 C SAETHER 28-Aug-1980 16:00 
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ATIVE CREATE a Mor eeer198e 94:24:00 FAS eaclanDeREAte mar;1 age 
.SBTTL RMSCREATE2 = RELATIVE CREATE ROUTINE 
++ 
RMSCREATE2 


RMSCREATE2 = 


this routine performs alt of the file create 
functions that are specific to the relative 
file organization, including: 


checking that sharing has not been specified in such a way 
that inter-process record locking is required. 
checking that device is a disk if not bio mode 
checking that record format is not undefined or stream : 
- checking that bucket size and maximum record size are compatible 
verifying maximum record number 
checking xab chain validity : 
calling the common create routine 
yogk ing the prolog, initial formatting of the data buckets to zeroes 
initializing and unlocking the prolog 
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oS 


Calling sequence: 


entered via case branch from rm$open 
returns by jumping to rm$createxit 


Input Parameters: 


rii impure area address 
ri10 fwa address 
r9 ifab address 
r8 fab address 


Implicit Inputs: 
the contents of the fab, ifab, & fwa. 
Output Parameters: 


r0 status code 
rier? destroyed 


Implicit Outputs: 

various fields in the ifab & fab are initialized. 
Completion Codes: 

standard rms 
Side Effects: 


none 
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code to handle error conditons. 
(note: this is not the entry point for the rm$create2 routine.) 


‘ RMSERR DEV i; device not disk 
ERRXIT: BRW RMSCREATEXIT go clean up 
E 
E 
E 


RRRFM: BRW RMSCRE_ERRRFM rfm = udf or > vfc 


RRMRS: BRW RMSCRE_ERRMRS ; mrs < or = 0 
" RMSERR BKS ; bks > BKTSC_MAXBKTSIZ or < cell size 
BRB ERRXIT i; go clean up” 


mrn < 0 
go clean up 


RMSERR MRN 
BRB 
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RM2CREATE RELATIVE=SPECIFIC CREATE 16-SEP-1984 01:01: AX/VMS Macro V04-00 Pa | RM2| 
yOs-000 RM CREATES - RELATIVE CREATE ROUTINE met Pi 03391536 RMS .SRCIRM RMoC REATE.MAR; 1 - (db | VO4 
eee 
1s : entry point for relative-specific create 
a 
1C 4 RMSCREATE2:: 
4 5 STSTPT CREATE2 
00 & 
0 3; check that device is disk 
22.09 05 ~«€0 i i BBS #1 FBSV_BI0, 1FBSB_FAC(R9) ,- 
04 00 8 § 5 low bio on any dev 
69 1C £1 8 3 BBC #DEVSV_RND, IFBSL_PRIM_ DEV(RO) | - 
D5 O2A 34 ERRDEV ; branch if not disk 
ae! 
BaSe 39 : handle allocation request, if any 
0098 539." | 
FFD2* 30 Base 40 5$: BSBw RMSSETALLOC ; handle allocation xab and | 
002E 41 3 set deq and rtdeq 
002E 4g ERRXIT1: 
D4 50 €9 Bogs 4 BLBC i; get out on err 
10 AB DS 0031 244 TSTL atti RAL (RB) > any initial al Location? | 
05 12 0034 45 BNEQ 10$ ; branch i ys 
10 AB —D6 aie 2$ INCL FABSL_ALQ(RB) 7 no - ceae block for prolog 
| 
0039 48 ; 
tts 23 3 check rfm and mrs parameters 
0039 51 ; assume rfm already checked for gtr than maxrfm 
Be | 
bate 23 ASSUME FABSC_UDF EQ 0 
50 Ads o9'S $039 56 10$: TSTB IFB$B_RFMORG(RY) ; is rfm undefined? 
CA 13 Bose ef BEQL ERRRFA ; branch if yes 
O03E 59 ASSUME FABSC_STM GT FABSC_VFC 
50 A991 O3¢ 61 CMPB  —s IF B$B_RFMORG(R9) ,- 
04 41 6 FABSC_STM ; is rfm stream? 
coc bee o BGEQU ERRRFM : branch if yes 
52 a9 36 AB BO B94 65 MOVW FABSW_MRS(R8),IFBSW_ LRL(R9) = | 
049 06 ; set irl from fab mrs 
CO 15 0049 6 BLEQ ERRMRS 3; branch if not > 0 | 
Oc6 65 ; | 
4B % : compute cell size 
gg 
50 01 38 AB Al 8 5g ADDW3 FABSW_MRS(RB) ,#1,R0 ; add in delete ctrl byte 
0 a9 91 005 74 CMPB —s IF BSB RFMORG(R9) . ~ 
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RM2CREATE RELATIVE=SPECIFIC CREATE 16-SEP-1984 01: AX/VMS Macro Vv04-00 Page 
yOL-000 RM CREATES - RELATIVE CREATE ROUTINE g-3 EP=-19 38 6: +k 38 RMS.SRCIRM2CRE LATE. MAR; 1 ° 
1 3 75 #FABSC_FIX : fixed rec sont 
a we 4 8 BEQL 30$ ; branch if y 
50 3 AO g 7 ADDW2 #2,R0 ; ode in recerd length field 
51 SF AS 9A ; £8 WOVZBL FBSB_FSZ(R9) RI ; get fsz 
50 51 AO 28 4 ADDW R1,R ; and add in giving tot. size 
06 ie 
o¢0 i check cell size against bks 
$60 .* 
51 3€ AB 9A 9060 Be 30$: MOVZBL FABS$B_BKS(R8),R1 ; copy bucket size from fab 
a bee § BNEQ 40$ ; branch if speced 
6 
Beee 8 ; 
066 9 ; default bucket size to min. 
Bpee 90 ; required to contain 1 record 
066 91; 
0066 3 
50 B7 0066 a DECW RO 3; round down 
51 50 0200 8F A? 0068 94 DIvW3 #512,R0,R1 ; get # blks - 1 for 1 record 
51 66 B28 So2 INCW R1 ; get # blks for 1 record 
50 B86 Q0 96 INCW RO 3; restore cell size 
5E Ad 51 90 007 97 40$: MOVB R1,1FB$B_BKS(R9) 3 copy bucket size” to ifab 
3F 0 = 551s 91s: 0076 98 CMPB R1,#BKTS$C_MAXBKTSIZ 3 in range? 
93 1A 0079 299 BGTRU ERRBKS : branch if not 
51 51 O09 78 0078 00 ASHL #9,R1,R1 3 compute bucket size in bytes 
51 50 —s «BI 44 01 CMPW RO,R1 cell size < or = bucket size? 
8A 1A 0082 Bg BGTRU  ERRBKS branch if not 
0084 0 ; set mrn value 
OOAC C9 «6938 AB «OO «(0084 «=. 304 MOVL FABSL_MRN(R8), IFBSL pane 
008A 05 ; set men from fab 
0B 14 QOB8A 06 BGTR > branch 
19 008C 07 BLSS ERR > error if < 
OOAC C9 7FFFFFFF 8F D0 4444 08 MOVL BOO TrFFFFF, IFBSL ances 
009 09 default to max. pos # 
0097 10 
0097 31 3 
baa 1 : go do create. 
097 13 3 note: this may be a ‘create if', in which case return io be 
94 1 3; ~=0made to rastopen if actually opened rather than created.) 
0097 16 
FF66" 30 0097 17 50$: BSBW RMSCREATECOM : do common create 
91 50 €9 4945 18 BLBC RO,ERRXIT1 ; get out on error 
50 DD 009D 1 PUSHL RO 3 Save status code 
009F 0 
009F 1; 
O9F ¢ ; file has been created. 
44 73 allocate a lock bdb and bcb and lock the prolog. 
OF 5° 
5A 59 DO OQO9F § MOVL R9,R10 ; set r10 to ifab addr 
22 a9 «#05 += =«2E% «(OOA2 BBC #1 fBSv_ B10, IFB$B_FAC(R9).- 
03 A 8 523 : continue unless block i/o 
gor? 1 A BRW oxty : avoid formatting for block io 
55 0200 8F C AA 0 52$: MOVZ2WL #512,R5 ; ask for 1 block to read prologue 
FFGE' 0 OOAF 1 BSBW RMSALDBUF 3 get bdb and buffer 
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RM2CREATE RE th mt gar td) CREATE 197 360-1386 9130) 36 AX/VMS Macro v04-00 Page 
v04-000 RMSCREATE2 = RELATIVE CREATE ROUTINE -SEP-1984 16:24: RMS .SRCIRM2CREATE.MAR; 1 
46 5 E9 Be 5 BLBC 0, 70$ ; ores on error. 
0084 ¢ 8 B INCW  IFB$W_AVLCL(R9) ount 8DB & buffer 
06 6A f B9 4 BBS #IFBSV_NORECLK,(R10), 558°; “Branch if not locking. 
FF4O' B 5 BSBW RASAL BCE : "Get a lock BLB. 
38 5 E9 O0C § BLBC RO, : Branch on error. 
15 55$: SCACHE 4 epee - 
C § AUAgseeCacx.nonEan -NOBUF FER> 
2A 50 =€9 cf rk BLBC 3; branch on error 
0D1 4 3 
itd 45 ; format file by writing zeroes to allocated space 
i 
00B0 C9 0g DO 00D1 46 MOVL ag - AfBst_ DVBN(R9) ; set first data vbn 
0 dO Bp8 47 MOVL #2,R1 3; Ist block for zeroing 
56 70 A9 O11 C1 it 48 ADDLS #1, 1FBSL_HBK(R9) ,R6 : compute eof block 
74 AD 56 DO OD 49 MOVL R6,1FBSL_ EBK(R9) 3; save it 
02 56 01 OOE 50 CMPL R6,4#2 ; eof in vbn 2? 
06 13 OOE 351 BEQL 60$ ; branch if yes (no need to zero) 
FFI6" 30 tH 26 BSBW RMSFMT_BKT2 : format (zero) data buckets 
56 50 €9 OOEA 5 BLBC RO, RLNERR ; branch on error 
OOED 54 
OOED 39 3 
OQOED 56; get buffer for prolog and initialize prolog. 
OQOED 57 ; 
OOED 58 
OOED 59 60$: SCACHE VBN=#1,- 
OOED 60 pies #512 
_ QOED 61 ph AgsS =<L0tK, NOREAD> ; get buffer for prolog 
45 50 €9 OOFB 6 70$: BLBC RO, ene 3; branch on error 
30 BB OOFE 6 PUSHR #*M< ; save bdb and buffer addr 
65 0200 8F 00 6E€ 00 2c 0100 se MOVCS #0, Rene 1. #512, (R5) : zero buffer 
30 BA 0108 65 POPR M<R estore bdb and buffer addr 
74 AS 01 BO O10A 66 MOVW PPL ese “VER _NO,PLGS$W_VER _AOCRS) 
010€ 67 ; set version # 
70 AS 56 DO 010 68 MOVL R6,PLG$L_EOF (RS) and eof vbn 
68 AS 0080 (9 BO 011 69 MOVW IFBSL_DVBN(R9) ,PLGSW_ DVBN(RS) 
011 70 ; and first data vbn 
6C AS OOAC C9 DO 011 71 MOVL = IFBSL_MRN(R9) ,PLGSL _MRN(RS) 
11E 72 ; ont max record number 
FEDF’ 30 1 73 BSBW RMSMAKS alculate and set checksum 
OA AS 03 88 1 74 BISB2 SBDESA SORT !BDBSM. VAL, eoaia. FLGS(R4) 
1 2 75 3; Say valid and Girty 
53 9¢ pO Q1 8 MOVL #RLTSM_WRT_THRU,R3 3: cause immediate wr 
. ee ? \$3 7 MOVL ) 3 protect PLG +s Bats, ae RELEASE 
FED2" 30 0128 28 BSBU —saRMSRELEASE : release prolo 
55 8 DO O12E 7 MOVL ($P)+,R5 3; restore PLG address 
24 5 E9 ; } 4 BLBC RO, RLEERR ; branch on error 
134 3 
; 2 ; If Al journaling, journal the prolog so that the CREATE can be Al recovered. 
134 . Be 
06 OOAO C9 0038 + 134 § BBC #IFBSV_AIL, IFBSB_JNLFLG(R9) EXIT ; skip if mot Al journaling 
0 O13A BSBW © JNL_REC PLG : journal the prolog 
263 E9 O013D 588 BLBC RO, ERRJAL ; branch on error 


| 
| 
| 
| 
| 
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v04- RM CREATES - RELATIVE CREATE ROUTINE ae et 09:88 RMS.SRCIRM2CREATE.MAR; 1 nts 
FEBD' 31 1$ #0 EXIT BRW RMSCREATEXIT1 ; Finish up create 

14 : 
14 3 ; handle errors 
nee 
14 95 ERRBUG: 
14 39 RLNERR: ; failed zero data buckets 

50 DD O14 9 PUSHL RO ; store status 
14 4 SCACHE VBN=#1,- 
145 39 SIZE=#6,- 
145 400 ERR=EXIf : re-get prolog bdb 

QOOOOOOO'EF 16 O15 401 JS$B RMSRLNERR ; unlock prolog 
eB 11 0158 ? ¢ BRB EXIT ; and get out 
OC AB DS 015 204 RLSERR: TSTL FABSL_STV(R8) ; do we have an stv? 
09 ie 158 th? BNEQ 10$ * okay use 
OC AS 6E& 00001000 B&F C 15D «4 $ BISL3. #*X1000,(SP),FABSL_STV(RB); else set the RMS error there 

166 407 10$:  RMSERR WPL, (SPS ; prolog write error 

ee | thes +38 BRB Exif ; go clean up 

0160 410 ERRJNL: RMSERR CJF,(SP) ; journal write error 
Oc AB «650 ) «6—#b0 (0172S 4111 MOVL RO fF ABSL_STV(RB) ; save CJF status where user can find it 
C8 3411 «20176 )=«412 BRB Exit : go clean up 
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This routine writes the prolog as a block entry to the Al journal. 


vOu=000 © INLREL-PLG = Journal the relative Proto 'S-sEP=1984 10:26:00 
or ~SUBTITLE JNL_REL_PLG = Journal the relative Prolog 
; JNLREL_PLG 
Inputs: 
; rg 1FAB 
; r5 PLG 
; Outputs: 
: r0 status 


JNL_REL_PLG: 

MOVL IFB$L_JNLBDB(R9) ,R3 
MOVL  § BDBSLTADDR(R3) ,R2 

: Set up the common RJR overhead. 


MOVB #RIRSC_REL,RJRS$B_ORG(R2) 


03 A2 03 90 
04 A2 01 90 
05 Ao 1E «(90 MOVB #RJR$_QRITE,RJRSB_OPER(R2) 


; Set up the block I0 entry. 


3c a2 01-—Ss«é0 MOVL  #1,RJR$L_BLOCK_VBN(R2) 
40 A2 00000200 8F 00 MOVL  #512,RJRSL_BLOCK_SIZE(R2) 
3¢ 8B PUSHR #*M<R2,R3,R4,R5> 
44 A2 64 0200 BF 2 MOVC3 #512, (R4) .RIRST_BLOCK(R2) 
3c —OsdiBA POPR #*M<R2,R3.R4,R55 


: Set up the WRTJNL call parameters. 


Bs DO MOVL R3,-(SP) 
7E 20 dO MOVL #CJFS_AI,=(SP) 
OOOOOO0O'EF 16 JSB RMSWRTJNL 
5E 08 £9 ADDL2 #8,SP 
5 RSB 


Fe et et et et et ee ee ek eh eh le he eh ee ek ee 

DPD DPD Ss & BB BB BB EE AAAI NIA IRPIPPNPNININID PS OOO 

FWP OC DOONAN EWR 0 OONOU EWN OC OONOA UE WWI 0 OO NOUS WN OOONOUS 
. 


- END 


i; get address of BDB/Buffer 
; get RJR address 


MOVB #RIRSC_BLOCK ,RJRSB_ENTRY_TYPE(R2) 


Pete Se Se Se 


; block 10 | 
; file organization 
; operation 


PROLOG is VBN 1 
size of PROLOG is 512 bytes 
save MOVC3 regs 


copy the prolog 
restore move regs 


JNLBDB address 
Al pourna’ ne . 
write entry to journal 


pop parameters off stack 
reture WRIJNL status to caller 


1 
( 


3, 
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Symbol table tees 7 81:38 ERMS. SRCJRMOCREATE MAR: 1 ° (9). 
$$.PSECT_EP = PLGSL_MRN = 
$$. TMP = ; 03 PLG$W_DVBN = 09 és 
SSRMSTEST = A PLG$W_VER_NO = 4 
SSRMS_PBUGCHK 10 RJRSB_ENTRY_TYPE = 8 03 
$$RMS_ TBUGCHK = 8 RJR$B_OPER = 0 309 
SSRMS_UMODE s 8 8 4 RJR$B_ORG = 8 00004 
BOBSB_FLGS = A RJR$C_BLOCK = 00003 
BDBSL_ADDR = 000 4h RJRSC_REL = BR BREE 

DBSM_DRT = 000 RJR$L_BLOCK_SIZE = 00000040 | 
BDBSM_VAL = 00000 RJR$L_BLOCK_VBN = 444 Fb 
eerecgentstt = $eetee a orn = $enveet | 
CSHSA_LOCK = $0001 RLNERR 0 $6148 8 01 
CSHSM_NOBUFFER = 44444 RLS$M_WRT_THRU = aS SE 
CSHSM_NORE = 00000004 SERR 00000158 R 01 
DEV$V_RND = Q0000001C RMSALBLB eeeeeeee = 6X OO] 

RBK OOOOOD0E R 01 RMSALDBUF teeeeeee =X 01 
ERRBUG 90000148 R 01 SCACHE eereeeee = = =X 01 
ERRDEV 00000000 R 01 RMSCREATE2 0000001C 01 
ERRJNL 0000016D R 01 RMSCREATECOM teeeeeee X01 
ERRMRN 00000015 R 01 RMSCREATEXIT aereeeee XX 01 
ERRMRS 00000008 R 01 RMSCREATEXIT1 aeeeeeee =X 01 
ERRRFM 00000008 R 01 CRE_ERRMRS eeeeeeee = 6X OT 
ERRXIT 00000005 R 01 RMSCRE_ERRRFM aeeeeeee = =X OT 
ERRXIT1 O000002E R 01 RMSFMT BKT2 teeeeeee = X 01 
EXIT §0000140 R 01 RMSMAKSUM aeeeeeee = X 01 
Ff ABS$8_BK = 0000003E RMSRELEASE teeeeeee = X 01 
FABSC FIX = 00000001 RMSRLNERR teeeeeee = X 01 
FABSC” STM = 00000004 RMSSETALLOC eeeeeeee =X 01 
F ABSC_UDF = 444 RMSWRTJNL eeeeeeee =X 01 
FABSC_VFC = 0000000 RMS$_BKS = 0001841C 
FABSL_ALQ = a A RMS$_CJF = 00010164 
FABSL_FOP = 00000004 RMS$_DEV = 000184C4 
F ABSL_MRN = 00000038 RMS$_MRN = 000185CC 
FABSL_STV = 4444 8 5 RMS$ WPL = 0001C11C | 
FABSW_MRS = 00000036 TPTSC_CREATE2 aeeeeeee = =X 01 
FOP = 4 4 6 34 | 
1FBSB_BKS = 000000 5 
1FBSB_FAC = BOORE 
IFBSB_FSZ = 0000005F 
IFB$B_JNLFLG = 44 ta 
IF BSB_RFMORG = 41444 
IFB$L_OVBN = 00 BR Nee | 
IFBSL_EBK = 6008 6 4 
1FB$L_HBK = 70 
IF BSL_JNLBDB = 4 Rae | 
IFBSL_ = OOOAC 
IFBSL_PRIM_DEV = 0000 43 
IFBSV~AI = 00 
IFB$V~BI0 = 000000 | 
IF B$V~NORECLK = 8 3 
IFeSU7URt = 90000082 
JNL_REL_PLG titi § & 6 
PIOSA_TRACE aererees =X 1 


PLGS$C~VER_NO 
PLGSL EOF 


90000070 


$2 
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Psect synopsis “SEP-1984 16:24: RMS, eRCIR RM2C REATE.MAR; 1 ( 


¢eeeeeecesececean ek A 


! Psect synopsis ! 


Quaseause weeece= at 


PSECT name Allocation PSECT No. Attributes 


AB 00000000 < Q-? 0 ¢ 0.) NOPIC USR CON ABS LCL WOSHR NOEXE NORD NOWRT NOVEC BYTE 
RMSRMS2 000001B3 (¢ 435.) 01 ¢ 1.) PIC USR CON REL GBSL NOSHR EXE RD NOWRT NOVEC BYTE 
s$ 00000000 ( 0.) 2¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
¢ewemew eee sere eo 
; Per formance indicators &: 
Phase Page faults CPU Time Elapsed Time 
Initialization 33 00300: 00 07 00:00:00.68 
pounens processing 118 0:00:00.72 OF ROR “Bs 
324 Be SP 00: B's 57 
es table sort 0 Sb Fe 00:00: g-}2 
Pass 2 88 Bp R0: 6-18 8: 0:05.42 
Symbol table output 12 0:00:00.1 0:00:00.44 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 ea BO aes Sd 
Assembler run totals 579 0:00:15.60 0:00:43.35 


The working set Limit was 1350 pages. 

60191 bytes (118 pages) of vives memory were used to buffer the intermediate c 

There were 60 pages of symbol geote space allocated to hold 1116 non-local and "5° local symbols. 
464 source Lines were read in Pass 1, producing 14 object records in Pass 2 

26 pages of virtual memory were used to define 25 macros. 


ere ereee ew ee eee ee eee eee ee = + 


SEO Re OH ORE OHS Se 


Macro Library name Macros defined 


-$255$DUA28: CRMS.OBJIRMS. a8: 1 15 
“$255$DUA28: (SYS.OBJJLIB.MLB; 1 0 
“$255$DUA28:CSYSL OB ISTARLET. MLB;2 6 
TOTALS (all (ibraries) 21 


1255 GETS were required to define 21 macros. 

There were no errors, warnings or information messages. | 

MACRO/LIS=L1S$:RM2CREATE/OBJ=OBJ$:RM2CREATE MSRC$:RM2CREATE/UPDATE=(ENHS$: RM2CREATE) +EXECML$/LIB+LIB$:RMS/LIB 
| 


